Option Explicit
Sub G_Sample005()
    'ոG_Data01
    Dim myShp  As Shape
    Dim myShpg As Shape
    Dim myAr() As Variant
    Dim mySht  As Worksheet
    Dim i      As Long
    Set mySht = Worksheets("G_Data01")			'N
    i = 0
    With mySht
        For Each myShp In .Shapes
            With myShp

                If .Type = msoAutoShape Then		'wType
                    i = i + 1
                    ReDim Preserve myAr(1 To i) 
                    myAr(i) = .Name
                End If
            End With
        Next
        Set myShpg = .Shapes.Range(myAr).Group
    End With
    myShpg.Copy
    With Worksheets.Add						'u@sW
        .Paste
        .Shapes(1).Ungroup
    End With
    myShpg.Ungroup
    Set myShpg = Nothing						'
    Set mySht = Nothing
End Sub
